home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Demos / Jungle Activated! / JungleActivated Demo / jung DEMO d / 00045.txt < prev    next >
Encoding:
Text File  |  1996-10-14  |  967 b   |  39 lines
  1.  
  2. on rightTurnDelete
  3.   
  4.   global gSpinLead, gLastSpinTime, gSpinCount, gSpinOffset
  5.   if gSpinLead < 15 then
  6.     if gSpinOffset = gSpinLead then     
  7.       set offset = (the castnum of sprite 1)-1-(2*gSpinLead)
  8.       if offset < 0 then
  9.         set offset = 30 + offset
  10.       end if
  11.       unloadcast (the number of cast "Studio0001") + offset
  12.     else
  13.       set gSpinOffset = gSpinOffset + 1
  14.     end if
  15.   end if
  16.   set gSpinCount = 1
  17.   set gLastSpinTime = the ticks 
  18. end rightTurnDelete
  19.  
  20.  
  21. on leftTurnDelete
  22.   
  23.   global gSpinLead, gLastSpinTime, gSpinCount, gSpinOffset
  24.   if gSpinLead < 15 then
  25.     if gSpinOffset = -gSpinLead then     
  26.       set offset = (the castnum of sprite 1)-1+(2*gSpinLead)
  27.       if offset > 29 then
  28.         set offset = offset - 30
  29.       end if
  30.       unloadcast (the number of cast "Studio0001") + offset
  31.     else
  32.       set gSpinOffset = gSpinOffset - 1
  33.     end if
  34.   end if
  35.   set gLastSpinTime = the ticks
  36.   set gSpinCount = 1
  37. end leftTurnDelete
  38.  
  39.